library(dplyr)
library(tidyverse)
library(readr)
library(plotly)
library(gganimate)
library(lubridate)     
library(ggthemes)      
library(janitor)       
library(ggplot2)
library(cowplot)
library(magick)
library(knitr)
theme_set(theme_minimal()) 
world_report<-read_csv("world-happiness-report.csv")

Including Plots

world_report<-world_report %>% 
  clean_names()  # for making them normal variable name

world_col<-world_report %>% 
  group_by(country_name) %>% 
  filter(country_name%in%(c("Colombia","Philippines","China"))) %>% 
  summarise(average_gdp=mean(log_gdp_per_capita)) %>% 
  ggplot(aes(x=country_name,y=average_gdp,fill=country_name)) +
  geom_col()+
  labs(title="Average LogGdp per capita from 2006 to 2020\n of Countries of Marcela,Pia,Xinyi",
       x="",
       y="Average Log Gdp per capita")+
  theme(plot.title = element_text(hjust = 0.5,color="black",face="bold"),
       legend.position = "none")

ggplotly(world_col)

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

LS0tCnRpdGxlOiAnVGlkeSBUdWVzZGF5ICM1JwphdXRob3I6ICJYaW55aSBMaSIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OgogICAgZGZfcHJpbnQ6IHBhZ2VkCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlCiAgICB0aGVtZTogY2VydWxlYW4KLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFLCBlcnJvcj1UUlVFLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFKQpgYGAKCmBgYHtyfQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShyZWFkcikKbGlicmFyeShwbG90bHkpCmxpYnJhcnkoZ2dhbmltYXRlKQpsaWJyYXJ5KGx1YnJpZGF0ZSkgICAgIApsaWJyYXJ5KGdndGhlbWVzKSAgICAgIApsaWJyYXJ5KGphbml0b3IpICAgICAgIApsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkoY293cGxvdCkKbGlicmFyeShtYWdpY2spCmxpYnJhcnkoa25pdHIpCnRoZW1lX3NldCh0aGVtZV9taW5pbWFsKCkpIApgYGAKCmBgYHtyfQp3b3JsZF9yZXBvcnQ8LXJlYWRfY3N2KCJ3b3JsZC1oYXBwaW5lc3MtcmVwb3J0LmNzdiIpCmBgYAoKIyMgSW5jbHVkaW5nIFBsb3RzCgpgYGB7cixmaWcuYWx0PSJBdmVyYWdlIExvZyBHZHAgcGVyIGNhcGl0YSBvZiBDb2xvbWJpYSwgUGhpbGlwcGluZXMsQ2hpbmEifQp3b3JsZF9yZXBvcnQ8LXdvcmxkX3JlcG9ydCAlPiUgCiAgY2xlYW5fbmFtZXMoKSAgIyBmb3IgbWFraW5nIHRoZW0gbm9ybWFsIHZhcmlhYmxlIG5hbWUKCndvcmxkX2NvbDwtd29ybGRfcmVwb3J0ICU+JSAKICBncm91cF9ieShjb3VudHJ5X25hbWUpICU+JSAKICBmaWx0ZXIoY291bnRyeV9uYW1lJWluJShjKCJDb2xvbWJpYSIsIlBoaWxpcHBpbmVzIiwiQ2hpbmEiKSkpICU+JSAKICBzdW1tYXJpc2UoYXZlcmFnZV9nZHA9bWVhbihsb2dfZ2RwX3Blcl9jYXBpdGEpKSAlPiUgCiAgZ2dwbG90KGFlcyh4PWNvdW50cnlfbmFtZSx5PWF2ZXJhZ2VfZ2RwLGZpbGw9Y291bnRyeV9uYW1lKSkgKwogIGdlb21fY29sKCkrCiAgbGFicyh0aXRsZT0iQXZlcmFnZSBMb2dHZHAgcGVyIGNhcGl0YSBmcm9tIDIwMDYgdG8gMjAyMFxuIG9mIENvdW50cmllcyBvZiBNYXJjZWxhLFBpYSxYaW55aSIsCiAgICAgICB4PSIiLAogICAgICAgeT0iQXZlcmFnZSBMb2cgR2RwIHBlciBjYXBpdGEiKSsKICB0aGVtZShwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KGhqdXN0ID0gMC41LGNvbG9yPSJibGFjayIsZmFjZT0iYm9sZCIpLAogICAgICAgbGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKQoKZ2dwbG90bHkod29ybGRfY29sKQpgYGAKCk5vdGUgdGhhdCB0aGUgYGVjaG8gPSBGQUxTRWAgcGFyYW1ldGVyIHdhcyBhZGRlZCB0byB0aGUgY29kZSBjaHVuayB0byBwcmV2ZW50IHByaW50aW5nIG9mIHRoZSBSIGNvZGUgdGhhdCBnZW5lcmF0ZWQgdGhlIHBsb3QuCg==